COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	C SHORT VERSION OF MANFRED'S TVIOF.F4: LOAD WITH PLOUX.F4 AND PLTMAN.F4
C00005 ENDMK
C⊗;
C SHORT VERSION OF MANFRED'S TVIOF.F4: LOAD WITH PLOUX.F4 AND PLTMAN.F4
C  THIS DISPLAYS OR PLOTS PROCESSED FILES ONLY.  12/73

C  TYPE <CR> TO REPEAT LAST FILE READ IN.
C  TYPE  X  TO EXIT, TYPE  SAVE  TO SAVE FILE FOR DRAWING PROG.
C  TYPE  T  TO TYPE LIST OF ALL YOUR CURRENT INPUT.

	COMMON /EDGEC/ A0,A1,A2,A3,A4,A5,A6,A7,
	1 DEBUG,T(1),XP(1),YP(1),PARMAX,
	1 HALF,FILE,RR,COH,RX,RY,CL,SL,D,B,FOUND

	DIMENSION JXX(4000),LIST(6,1000),LIST5(0/1000)
	COMMON /LISTC/ JXX,LIST,LIST5,NEWEND,LO

	COMMON/COMMAC/BCLIP,TCLIP,BITS,IWID,LINLEN,FLINE,LLINE,
	1 LSIDE,RSIDE,JCNT,HYSTAB(0/15)



	INTEGER FLINE,RSIDE,HYSTAB,TIM1,TIM2,FILEN,FILE,BITS
CC	LOGICAL FUNCTION ADMISS
CC	ADMISS(DTA)=DTA.EQ.-7.OR.(1.LE.DTA.AND.DTA.LE.10)
	BITS=4
83	FORMAT(A5)
204	FORMAT(' TYPE THE FILE NAME'/)
202	FORMAT(' NEWEND=',I4/)
330	TYPE 204
	ACCEPT 83,NFILE
4	REWIND 1
	CALL IFILE(1,NFILE)
	READ(1) FILEN,RR,FLINE,LLINE,LSIDE,RSIDE,NEWEND,
	1 ((LIST(I,N),I=1,6),N=1,NEWEND)
	TYPE 202,NEWEND
	IF(NEWEND.GE.1000)GO TO 252
	DO 335 I=NEWEND*6+1,6000
335	LIST(I,1)=0
252	CALL PIC2
13	TYPE 204
	ACCEPT 83,FILE
	IF(LOOKD(FILE))GO TO 10
14	REWIND 1
	CALL OFILE(1,FILE)
	IF(JCNT.GT.4000)JCNT=4000
	WRITE(1)JCNT,(JXX(K),K=1,JCNT),FLINE,LLINE,LSIDE,RSIDE,NFILE
	CALL EXIT
10	TYPE 11,FILE
11	FORMAT(' WRITE OVER ',A5,'?  '/$)
	ACCEPT 12,K
12	FORMAT(A1)
	IF(K.EQ.'N')GO TO 13
	GO TO 14
	END